PC World Komputer 2010 April/PCWorld0410.iso/hity wydania/Ubuntu 9.10 PL/karmelkowy-koliberek-desktop-9.10-i386-PL.iso/casper/filesystem.squashfs/usr/sbin/foomatic-extract-text

Text File | 2009-09-18 | 5KB | 190 lines

#!/usr/bin/perl -w   # -*- perl -*-

use Foomatic::Defaults;
use Foomatic::DB;
use strict;

sub write_po{
    my ($out, $messages) = @_;
    foreach (sort(keys %$messages)) {
    if ($_ eq '') {
        next;
    }
    my $translation = $messages->{$_};
    print $out "msgid \"$_\"\nmsgstr \"$translation\"\n\n";
    }
}

sub write_message_files {
    my ($messages) = @_;

    foreach (keys %$messages) {
    print "LANGUAGE: $_\n";
    open my $out, ">:encoding(utf-8)", "$_.po" or die;
    write_po($out, $messages->{$_});
    }
}

sub extract_ppd_old{
    my $file = $_[0];
    my %messages;


    if ($file =~ /ppd\.gz$/) {
    open(FILE, "zcat $file |") or die "Can't open file: $file";
    } else {
    open(FILE, $file);
    }

    while (<FILE>){
    if ( /\*(\w+) (\w+)\/([^:]+): \"([^\"]*)\"/ ) {
        print $_, "'$1' '$2' '$3' '$4'\n\n"
    }
    #print
    }
    close FILE;
}


sub extract_from_db{
    my $messages = $_[0];

    my $db = Foomatic::DB->new();

    my @files = $db->_get_xml_filelist("source/opt");
    foreach my $file (@files){
    if ( $file =~ /[Mm]odel|^18$|^57$/ ) {
        next;
    }
    my $xml = $db->_get_object_xml("source/opt/$file");
    while ($xml =~ /\<[^\<\/]*longname\>.*?\<en\>(.*?)\<\/en\>/sg) {
        my $message = Foomatic::DB::unhtmlify($1); # xml unquoting
        $messages->{$message} = '';
    }
    }
}

sub extract_ppd{
    my ($db, $messages) = @_;
    my $args = $db->{"dat"}{"args_byname"};

    for my $option (keys %$args){
    $messages->{$args->{$option}{"comment"}} = "";
    #foreach (keys %{$args->{$option}}) {
    #    print $_, "\n";
    #}
    if ($args->{$option}{"type"} eq "bool"){
        $messages->{$args->{$option}{"comment_true"}} = '';
        $messages->{$args->{$option}{"comment_false"}} = '';
    } elsif ($args->{$option}{"type"} eq "enum") {
        for my $val (@{$args->{$option}{"vals"}}){
        $messages->{$val->{"comment"}} = '';
        }
    }
    }
    return;
    # old code:
    $a = $db->{"dat"}{"args_byname"}{"MediaType"}{"vals"}[0];
    print "$a\n\n";
    if (0){
        foreach my $val (@$a){
            print "$val\n";
        }
        return;
    }
    foreach my $name (keys %$a) {
    print "$name:\n";
    print $a->{$name}, "\n\n";
    if ($name != "compiled-at"){
        foreach (keys %{$db->{"dat"}{$name}}) {
        print $_, "\n";
        }
        print "\n";
    }
    }
}

sub get_translated_messages{
    my ($ppd_en, $ppd_lang, $translation) = @_;

    my $args_en = $ppd_en->{"dat"}{"args_byname"};
    my $args_lang = $ppd_lang->{"dat"}{"args_byname"};

    for my $option (keys %$args_en){
    $translation->{$args_en->{$option}{"comment"}} =
        $args_lang->{$option}{"comment"};

    if ($args_en->{$option}{"type"} eq "bool"){
        $translation->{$args_en->{$option}{"comment_true"}} =
        $args_lang->{$option}{"comment_true"};
        $translation->{$args_en->{$option}{"comment_false"}} =
        $args_lang->{$option}{"comment_false"};
    } elsif ($args_en->{$option}{"type"} eq "enum") {
        for my $val (@{$args_en->{$option}{"vals"}}){
        my $value = $val->{"value"};
        for my $val_lang (@{$args_lang->{$option}{"vals"}}){
            if ($val_lang->{"value"} eq $value) {
            $translation->{$val->{"comment"}} =
                $val_lang->{"comment"};
            };
        }
        }
    }
    }
}

sub extract_ppds{
    my ($path, $messages) = @_;
    my $ppds = { };
    my %language_names = ('English' => 'en',
              'French' => 'fr',
              'German' => 'de',
              'Italian' => 'it',
              'Japanese' => 'jp',
              'Portugse' => 'pt',
              'Portuguese' => 'pt',
              'Spanish' => 'es');

    # read ppds
    open(PPDS, "find $path -name \*.ppd\*|");
    while (<PPDS>){
    print substr($_, 0, -1), "\n";
    my $db = Foomatic::DB->new();
    $db->getdatfromppd(substr($_, 0, -1));
    my $makemodel = $db->{'dat'}{'makemodel'};
    $ppds->{$makemodel} = [] unless exists $ppds->{$makemodel};
    push @{$ppds->{$makemodel}}, $db;
    }
    foreach my $makemodel (keys %$ppds) {
    my $en_ppd;
    foreach my $ppd (@{$ppds->{$makemodel}}) {
        if ($ppd->{'dat'}{'language'} eq 'English') {
        $en_ppd = $ppd;
        last;
        }
    }
    foreach my $ppd (@{$ppds->{$makemodel}}) {
        my $lang = $ppd->{'dat'}{'language'};
        if (exists $language_names{$lang}) {
        $lang = $language_names{$lang};
        }
        $messages->{$lang} = {} unless exists $messages->{$lang};
        if ($lang ne 'en') {
        get_translated_messages($en_ppd, $ppd, $messages->{$lang});
        } else {
        extract_ppd($ppd, $messages->{$lang});
        }
    }
    }
}

sub main{
    my $messages = { };
    $messages->{'en'} = { };
    extract_from_db($messages->{'en'});
    extract_ppds("$libdir/db/source/PPD/", $messages);
    write_message_files($messages);
}

main();